home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 172
/
172.d81
/
b.toon 172
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
4KB
|
126 lines
10 poke56,48:poke55,0:clr:poke53371,0
20 dv=peek(186):ifdv<8thendv=8
22 hz$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
24 sp$=" "
26 eb$(0)=" @ @ "
27 eb$(1)=" @ @ "
28 eb$(2)=" @ @ "
30 poke53281,0:poke53280,0:print"[147]":poke53272,29
32 x=1:y=0:xx=36:yy=21:gosub100
34 printtab(4)"[129][176][192][192][178][192][192][174] [176][192][192][192][192][192][174] [176][192][192][192][192][192][174] [176][192][192][174] [176]
35 [153][163]4)" (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)
36 printtab(4)" [177] [173][192][192][192][192][192][189] [173][192][192][192][192][192][189] [189] [173][192][192][189]
38 [153]"list (NULL)left$val (NULL)right$chr$left$(NULL)(NULL) (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
40 [153]" (NULL)(NULL)(NULL)(NULL) (NULL)asc (NULL)left$val (NULL)(NULL)(NULL)(NULL)left$ len(NULL)(NULL)(NULL)val(NULL)(NULL)
50 ifgthen120
60 g=1
70 sys57812"toon.font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
72 poke53272,29
80 sys57812"toon.ml",dv,0:poke780,0:poke781,0:poke782,192:sys65493
90 sys57812"toon 172.shp",dv,0:poke780,0:poke781,0:poke782,56:sys65493
92 sc=204*256:syssc,96,92,48
94 md=peek(56*256)
96 goto120
100 poke214,y:print
102 printtab(x)"[176]"left$(hz$,xx)"[174]"
104 fori=1toyy:printtab(x)"[221]"left$(sp$,xx)"[221]":next
106 printtab(x)"[173]"left$(hz$,xx)"[189]"
108 return
120 print" 1[154] [202]ust show [212]oon #172.
130 [153]" 2cont (NULL)how the toon and print it on a
140 print" 7-pin (1525-emulating) printer.
150 [153]" 3cont (NULL)how the toon and print it on an
160 print" 8-pin ([197]pson-emulating) printer.
170 [153]" 4cont valnter a caption for the toon.
180 print" 5[159] [210]eturn to [204][207][193][196][211][212][193][210].
190 [153]"list (NULL)ake sure your printer is on-line.
200 poke198,0
206 ifrnd(1)>.98thenpoke214,3:print:printtab(13)eb$(rnd(1)*3)
210 geta$:ifa$<"1"ora$>"5"then206
220 a1=val(a$):ifa1=5then40000
230 ifa1=4then690
240 ifa1=1then600
250 ifa1=2thentb=80:goto430
260 gosub680
270 poke214,11:print
280 printtab(7)" [196][197][206][211][201][212][217] [215][201][196][212][200]
290 [153][163]7)" 1cont (NULL)ingle wide
300 printtab(7)" 2[154] [195]rt normal
310 [153][163]7)" 3cont str$ouble narrow
320 printtab(7)" 4[154] [196]ouble wide
330 [153][163]7)" 5cont (NULL)uad narrow
340 printtab(7)" 6[154] [209]uad normal
342 [153][163]7)" 7open peekack to the (NULL)ain (NULL)enu
350 poke198,0
360 geta$:ifa$<"1"ora$>"7"then360
370 a2=val(a$):ifa2=1then ds=0:bt=1:tb=80
380 ifa2=2then ds=4:bt=1:tb=120
390 ifa2=3then ds=1:bt=1:tb=160
400 ifa2=4then ds=1:bt=2:tb=80
410 ifa2=5then ds=3:bt=2:tb=160
420 ifa2=6then ds=3:bt=3:tb=120
422 ifa2=7then30
430 gosub680
440 poke214,11:print
450 printtab(9)" [212][193][194][160][208][207][211][201][212][201][207][206]
460 [153][163]9)" 1cont (NULL)eft
470 printtab(9)" 2[154] [195]enter
480 [153][163]9)" 3cont (NULL)ight
490 ifa2<>3anda2<>5then520
500 printtab(9)" 4[154] [195]enter-left
510 [153][163]9)" 5cont lenenter-right
512 printtab(9)" 6[159] [194]ack to [205]ain [205]enu
520 [151]198,0
530 [161]a$:[139]a$[179]"1"[176]a$[177]"6"[167]530
532 [139]a$[178]"6"[167]30
540 [139]a$[178]"1"[167]tb[178]0:[137]600
550 [139]a$[178]"2"[167]600
560 [139]a$[178]"3"[167]tb[178]tb[172]2:[137]600
570 [139]a2[179][177]3[175]a2[179][177]5[167]520
580 [139]a$[178]"4"[167]tb[178]53:[137]600
590 tb[178]266
600 [151]251,56:[151]252,96:[151]253,92:[139]g[178]1[167][158]51456
610 [158]51459
620 [139]a1[178]2[167][158]49152,tb,md:[137]660
630 [139]a1[178]3[167][158]49155,tb,ds,bt,bt[172]320,md:[137]660
640 [151]198,0
650 [161]a$:[139]a$[178]""[167]650
660 [151]186,dv:[158]51459
670 [137]30
680 [151]214,8:[153]:[129]i[178]1[164]14:[153][163]2)[200](sp$,35):[130]:[142]
690 [151]251,56:[151]252,96:[151]253,92:[158]51456
700 [151]214,17:[153]
710 [158]51459
720 [158]sc[170]6,1,23,"print#valnter your caption here. (NULL)hen done,
730 syssc+6,1,24,"press [198]1. [208]ress [211][208][193][195][197] to begin.
740 [151]198,0
750 [161]a$:[139]a$[179][177]" "[167]750
760 [158]sc[170]6,0,23," "
770 [158]sc[170]6,0,24," stop"
780 [158]sc[170]6,1,23," waitcmd"
790 [151]198,0:[158]sc[170]3," waitcmd"
800 [161]a$:[139]a$[178]""[167]800
810 [139]a$[178][199](133)[167][158]sc[170]3," ":[158]51459:g[178]2:[137]30
820 [139]a$[178][199](20)[167][158]sc[170]3," cmdcmd":[137]790
830 [139]a$[178]"cmd"[167][158]sc[170]3," cmdcmd waitcmd":[137]790
840 [139]a$[178]""[167][158]sc[170]3," waitcmd":[137]790
850 [139]a$[178]""[167][158]sc[170]3," cmd waitcmd":[137]790
860 [139]a$[178]"on"[167][158]sc[170]3," oncmd waitcmd":[137]790
870 [139]a$[178][199](34)[167]790
880 [139]a$[178][199](13)[167][158]sc[170]3," "
890 [139]a$[177]"(NULL)"[167]790
900 [139]a$[177]"_"[175]a$[179]"atn"[167]790
910 [158]sc[170]3,a$
920 [137]790
10000 d[178][194](186):n$[178]"b.toon 172":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
40060 [130]:[142]
40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]